home *** CD-ROM | disk | FTP | other *** search
- property spriteNum
- global waste, equal, currentselect, points, foundation, mover
-
- on beginSprite me
- waste.addProp(makesymbol(spriteNum), new(script("card pile")))
- end
-
- on mouseDown me
- if sprite(spriteNum).member <> member("block", "playing cards") then
- puppetSound(3, "pickcard")
- sprite(spriteNum).locZ = spriteNum + 1000
- mover = timeout("mover").new(5, #moveme, me)
- if waste[makesymbol(spriteNum)].cards.count > 1 then
- wasting = waste[makesymbol(spriteNum)].cards
- sprite(5).member = member(wasting[wasting.count - 1].membername, "playing cards")
- end if
- end if
- end
-
- on moveme me
- sprite(spriteNum).loc = the mouseLoc
- end
-
- on mouseUp me
- if sprite(spriteNum).member <> member("block", "playing cards") then
- if equal = 1 then
- puppetSound(3, "pickcard")
- mover.forget()
- sprite(spriteNum).loc = waste[makesymbol(spriteNum)].getlastcard().location
- sprite(spriteNum).locZ = spriteNum
- sprite(currentselect).member = member(sprite(the clickOn).memberNum, "playing cards")
- waste[makesymbol(spriteNum)].subcard(waste[makesymbol(6)].cards.count)
- if waste[makesymbol(spriteNum)].cards.count > 0 then
- sprite(spriteNum).member = member(waste[makesymbol(spriteNum)].getlastcard().membername, "playing cards")
- else
- sprite(spriteNum).member = member("block", "playing cards")
- end if
- foundation[makesymbol(currentselect)].addCard(currentselect)
- points = points + 10
- equal = 0
- currentselect = 0
- checkwin()
- else
- if equal = 0 then
- puppetSound(3, "dropcard")
- mover.forget()
- sprite(spriteNum).loc = waste[makesymbol(spriteNum)].getlastcard().location
- sprite(spriteNum).locZ = spriteNum
- end if
- end if
- end if
- end
-